PC Plus SuperCD (UK) 1997 May/PC Plus Super CD Issue 127 (May 1997).iso/delphi1/lesson4/todolist/todo1.dfm/todo1.txt

Text File | 1996-02-24 | 4.4 KB | 222 lines

object ToDoForm: TToDoForm
  Left = 279
  Top = 122
  ActiveControl = InputLine
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'ToDo List'
  ClientHeight = 454
  ClientWidth = 514
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'System'
  Font.Style = []
  Menu = MainMenu1
  PixelsPerInch = 96
  Position = poScreenCenter
  OnCreate = FormCreate
  TextHeight = 16
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 457
    Height = 433
    BevelOuter = bvNone
    TabOrder = 9
    object DueByLabel: TLabel
      Left = 320
      Top = 88
      Width = 60
      Height = 16
      Caption = 'Due By...'
    end
    object ExitBtn: TButton
      Left = 320
      Top = 384
      Width = 113
      Height = 33
      Caption = '&Exit'
      TabOrder = 0
      OnClick = ExitBtnClick
    end
    object Panel2: TPanel
      Left = 24
      Top = 48
      Width = 281
      Height = 369
      Caption = 'Panel2'
      Color = clWhite
      TabOrder = 1
    end
  end
  object ToDoList: TListBox
    Left = 24
    Top = 48
    Width = 281
    Height = 369
    ItemHeight = 16
    PopupMenu = PopupMenu1
    TabOrder = 0
    OnClick = ToDoListClick
    OnDblClick = ToDoListDblClick
  end
  object InputLine: TEdit
    Left = 24
    Top = 16
    Width = 281
    Height = 25
    TabOrder = 1
  end
  object AddBtn: TButton
    Left = 320
    Top = 144
    Width = 113
    Height = 33
    Caption = '&Add Item'
    TabOrder = 2
    OnClick = AddBtnClick
  end
  object RadioGroupPriority: TRadioGroup
    Left = 320
    Top = 8
    Width = 113
    Height = 73
    Caption = 'Priority'
    ItemIndex = 0
    Items.Strings = (
      '1'
      '2'
      '3')
    TabOrder = 3
    OnClick = RadioGroupPriorityClick
  end
  object DateDueEditBox: TEdit
    Left = 320
    Top = 112
    Width = 97
    Height = 25
    TabOrder = 4
  end
  object RadioGroupSetSort: TRadioGroup
    Left = 320
    Top = 264
    Width = 113
    Height = 113
    Caption = 'Sort By...'
    ItemIndex = 0
    Items.Strings = (
      'Unsorted'
      'Name'
      'Priority'
      'Date')
    TabOrder = 5
    OnClick = RadioGroupSetSortClick
  end
  object DelBtn: TButton
    Left = 320
    Top = 184
    Width = 113
    Height = 33
    Caption = '&Delete Item'
    TabOrder = 6
    OnClick = DelBtnClick
  end
  object ReplaceBtn: TButton
    Left = 320
    Top = 224
    Width = 113
    Height = 33
    Caption = '&Replace Item'
    TabOrder = 7
    OnClick = ReplaceBtnClick
  end
  object CalendarBtn: TButton
    Left = 416
    Top = 112
    Width = 17
    Height = 25
    Hint = 'Click to select a due-by date'
    Caption = '...'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 8
    OnClick = CalendarBtnClick
  end
  object MainMenu1: TMainMenu
    Left = 400
    Top = 24
    object FileMenu: TMenuItem
      Caption = '&File'
      object NewMnu: TMenuItem
        Caption = '&New'
        OnClick = NewMnuClick
      end
      object SaveMnu: TMenuItem
        Caption = '&Save'
        OnClick = SaveMnuClick
      end
      object SaveAsMnu: TMenuItem
        Caption = 'Save &As'
        OnClick = SaveAsMnuClick
      end
      object LoadMnu: TMenuItem
        Caption = '&Load'
        OnClick = LoadMnuClick
      end
      object ExitMnu: TMenuItem
        Caption = 'E&xit'
        OnClick = ExitMnuClick
      end
    end
  end
  object OpenDialog1: TOpenDialog
    DefaultExt = 'tdo'
    FileName = '*.tdo'
    Filter = 'ToDo lists|*.tdo|All files|*.*'
    Left = 432
    Top = 24
  end
  object SaveDialog1: TSaveDialog
    DefaultExt = 'tdo'
    FileName = '*.tdo'
    Filter = 'ToDo lists|*.tdo|All Files|*.*'
    Left = 464
    Top = 24
  end
  object PopupMenu1: TPopupMenu
    Left = 368
    Top = 24
    object Add1: TMenuItem
      Caption = '&Add'
      OnClick = Add1Click
    end
    object Delete1: TMenuItem
      Caption = '&Delete'
      OnClick = Delete1Click
    end
    object Replace1: TMenuItem
      Caption = '&Replace'
      OnClick = Replace1Click
    end
    object SortBy1: TMenuItem
      Caption = '&SortBy'
      object Name1: TMenuItem
        Caption = '&Name'
        OnClick = Name1Click
      end
      object Priority1: TMenuItem
        Caption = '&Priority'
        OnClick = Priority1Click
      end
      object Date1: TMenuItem
        Caption = '&Date'
        OnClick = Date1Click
      end
      object Unsorted1: TMenuItem
        Caption = '&Unsorted'
        OnClick = Unsorted1Click
      end
    end
  end
end